(find-lisp-default-directory-predicate):

Fix bug: Do symlink check on expanded filename.

diff --git a/lisp/find-lisp.el b/lisp/find-lisp.el
index 18e30ef37eb142af3f5c94b01d4319a7d7e3bff7..0dd35f23514762e6582cf5408116d52a90e799bb 100644 (file)
--- a/lisp/find-lisp.el
+++ b/lisp/find-lisp.el
@@ -95,7 +95,7 @@ PARENT is the parent directory of DIR."
           (string= dir "..")
           ;; Skip directories which are symlinks
           ;; Easy way to circumvent recursive loops
-          (file-symlink-p dir))))
+          (file-symlink-p (expand-file-name dir parent)))))
 
 (defun find-lisp-default-file-predicate  (file dir)
   "True if FILE matches `find-lisp-regexp'.